EROS 2/EROS 2.iso/mac/EROS vol.2/EROS vol.DXR/00778.ls

Text File | 1995-12-20 | 2.8 KB | 99 lines

on exitFrame
  global tap, gtime, tspeed, stime, scNUM, scTIME, iSTART, score
  set tap to random(37) + iSTART
  set the castNum of sprite 3 to tap
  updateStage()
  if (the ticks - gtime) > 60 then
    set gtime to the ticks
    set stime to stime - 1
    set the text of cast scTIME to EMPTY & stime & EMPTY
    if stime = 0 then
      go(marker(0) + 2)
      set the locH of sprite 20 to -200
      comit()
      set the locH of sprite 27 to the locH of sprite 10 + 6
      set the locV of sprite 27 to the locV of sprite 10 - 6
    end if
  end if
  if tspeed = 1 then
    puppetTempo(20)
  end if
  if tspeed = 4 then
    puppetTempo(4)
  end if
  if tspeed = 2 then
    puppetTempo(2)
  end if
  if tspeed = 3 then
    puppetTempo(1)
  end if
end

on comit
  global score
  if score >= 30 then
    set the text of cast "comment" to "  Maybe you should try a faster speed!?  "
    exit
  end if
  if (score >= 25) and (score <= 29) then
    set the text of cast "comment" to "  Unbelivable! You are a super pervert!  "
    exit
  end if
  if (score >= 20) and (score <= 24) then
    set the text of cast "comment" to "  James Bond could do no better  "
    exit
  end if
  if (score >= 15) and (score <= 19) then
    set the text of cast "comment" to "  Dude! Excellent score.  "
    exit
  end if
  if (score >= 11) and (score <= 14) then
    set the text of cast "comment" to "  Very good. You are human.  "
    exit
  end if
  if (score >= 5) and (score <= 10) then
    set the text of cast "comment" to "  Not Bad.  "
    exit
  end if
  if (score >= 0) and (score <= 4) then
    set the text of cast "comment" to "  Pretty Boderline  "
    exit
  end if
  if (score <= -1) and (score >= -5) then
    set the text of cast "comment" to "  Hmmm...almost a man  "
    exit
  end if
  if (score <= -6) and (score >= -9) then
    set the text of cast "comment" to "  Not too good. Remember: boobs in front, butt in back.  "
    exit
  end if
  if (score <= -10) and (score >= -15) then
    set the text of cast "comment" to "  Houston...we have a problem  "
    exit
  end if
  if (score <= -16) and (score >= -19) then
    set the text of cast "comment" to "  You need to take Anatomy 101  "
    exit
  end if
  if (score <= -20) and (score >= -25) then
    set the text of cast "comment" to "  You are legally blind  "
    exit
  end if
  if (score <= -26) and (score >= -30) then
    set the text of cast "comment" to "  Maybe you should try a slower speed  "
    exit
  end if
  if (score <= -35) and (score >= -39) then
    set the text of cast "comment" to "  Are you missing a chromasome?  "
    exit
  end if
  if (score <= -40) and (score >= 49) then
    set the text of cast "comment" to "  Oh My God! (this is really bad)  "
    exit
  end if
  if score <= -50 then
    set the text of cast "comment" to "  Apparently you are trying to lose  "
    exit
  end if
end